(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     14671,        476]
NotebookOptionsPosition[     12428,        393]
NotebookOutlinePosition[     12770,        408]
CellTagsIndexPosition[     12727,        405]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"100", "/", "3"}]], "Input",
 CellChangeTimes->{{3.4101584207164288`*^9, 3.4101584228101788`*^9}}],

Cell[BoxData[
 FractionBox["100", "3"]], "Output",
 CellChangeTimes->{3.4101584242945538`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "-", "25"}]], "Input",
 CellChangeTimes->{{3.4101584252320538`*^9, 3.4101584277008038`*^9}}],

Cell[BoxData[
 FractionBox["25", "3"]], "Output",
 CellChangeTimes->{3.4101584280289288`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sqrt", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.4101584397008038`*^9, 3.4101584413258038`*^9}}],

Cell[BoxData[
 FractionBox["5", 
  SqrtBox["3"]]], "Output",
 CellChangeTimes->{3.4101584418101788`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["xsqsum"], "Input",
 CellChangeTimes->{{3.4101785969195538`*^9, 3.4101785986851788`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "15825.392045379625`", ",", "16336.504094185155`", ",", 
   "16388.079569622634`", ",", "15600.57116232804`"}], "}"}]], "Output",
 CellChangeTimes->{3.4101785993414288`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"xsqsum", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "/", "Nmc"}]], "Input",
 CellChangeTimes->{{3.4101786346070538`*^9, 3.4101786434820538`*^9}}],

Cell[BoxData["633.0156818151851`"], "Output",
 CellChangeTimes->{3.4101786457945538`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"xsum", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "/", "Nmc"}], ")"}], "^", "2"}]], "Input",\

 CellChangeTimes->{{3.4101786585289288`*^9, 3.4101786748570538`*^9}}],

Cell[BoxData["5648.464956989157`"], "Output",
 CellChangeTimes->{{3.4101786639508038`*^9, 3.4101786752164288`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"5.33196", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"5.58848", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"5.4377", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"5.52772", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"6.15035", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"5.76909", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"5.90723", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"6.25106", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"6.27853", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"6.04397", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"6.26247", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"6.06559", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"6.07733", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"6.05372", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"6.06076", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"5.9889", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"6.00518", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"6.03055", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"5.93248", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"6.06202", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"5.9649", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"5.98337", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"5.97836", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"6.06268", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"6.0602", "^", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{"5.85541", "^", "2"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.4101789088726788`*^9, 3.4101792151226788`*^9}}],

Cell[BoxData["922.2677249259001`"], "Output",
 CellChangeTimes->{3.4101790594820538`*^9, 3.4101792163414288`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/", "Nmc"}]], "Input",
 CellChangeTimes->{{3.4101790642945538`*^9, 3.4101790685289288`*^9}}],

Cell[BoxData["36.89070899703601`"], "Output",
 CellChangeTimes->{3.4101790691383038`*^9, 3.4101792187633038`*^9}]
}, Open  ]],

Cell[BoxData["6.1892"], "Input",
 CellChangeTimes->{{3.4101790744351788`*^9, 3.4101790762008038`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"36.8907", "-", 
  RowBox[{"(", 
   RowBox[{"6.1892", "^", "2"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.4101792214976788`*^9, 3.4101792470133038`*^9}}],

Cell[BoxData[
 RowBox[{"-", "1.4154966399999935`"}]], "Output",
 CellChangeTimes->{{3.4101792298101788`*^9, 3.4101792477164288`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sqrt", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.4101792307008038`*^9, 3.4101792320289288`*^9}}],

Cell[BoxData[
 RowBox[{"0.`", "\[InvisibleSpace]", "+", 
  RowBox[{"1.1897464603855703`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.4101792331383038`*^9, 3.4101792724508038`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"list", "=", 
   RowBox[{"Array", "[", 
    RowBox[{"l", ",", "25"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4101808708883038`*^9, 3.4101808870914288`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "\[LessEqual]", "25"}], ",", 
     RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"list", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "=", 
       RowBox[{"RandomReal", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "100"}], ",", "100"}], "}"}], "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", "list", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Sqrt", "[", 
  RowBox[{"Variance", "[", "list", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.4101807299664288`*^9, 3.4101807357320538`*^9}, {
   3.4101807716226788`*^9, 3.4101808677945538`*^9}, 3.4101810382320538`*^9, {
   3.4101811369039288`*^9, 3.4101811424664288`*^9}, {3.4101812318570538`*^9, 
   3.4101812428726788`*^9}, {3.4101814116070538`*^9, 3.4101814141226788`*^9}}],\


Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.8910809155633146`", ",", 
   RowBox[{"-", "33.705009601128744`"}], ",", "64.30192738358551`", ",", 
   RowBox[{"-", "94.79928404667773`"}], ",", "97.16834505726072`", ",", 
   RowBox[{"-", "41.03729885061984`"}], ",", "55.100212444718764`", ",", 
   RowBox[{"-", "49.288835793132705`"}], ",", 
   RowBox[{"-", "10.757678016662231`"}], ",", "54.1253029583344`", ",", 
   RowBox[{"-", "70.15701778725698`"}], ",", 
   RowBox[{"-", "7.4273885704066345`"}], ",", 
   RowBox[{"-", "93.44377929468175`"}], ",", "36.85687482099631`", ",", 
   "37.15651917333482`", ",", "36.99181720840965`", ",", "51.76510456030057`",
    ",", 
   RowBox[{"-", "70.71256738755052`"}], ",", "99.88646946131539`", ",", 
   "71.05532039795159`", ",", "65.96183261405426`", ",", 
   RowBox[{"-", "10.867331091766008`"}], ",", "82.68201421290354`", ",", 
   RowBox[{"-", "26.54760409938497`"}], ",", "30.023781028974426`"}], 
  "}"}]], "Print",
 CellChangeTimes->{3.4101815044820538`*^9}],

Cell[BoxData["59.25921630188041`"], "Output",
 CellChangeTimes->{3.4101815044976788`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"10000", "/", "3"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.4101809069976788`*^9, 3.4101809159508038`*^9}, {
  3.4101809934664288`*^9, 3.4101809957789288`*^9}, {3.4101811731226788`*^9, 
  3.4101811739195538`*^9}, {3.4101814787476788`*^9, 3.4101814810601788`*^9}}],\


Cell[BoxData["57.73502691896258`"], "Output",
 CellChangeTimes->{{3.4101809109195538`*^9, 3.4101809164820538`*^9}, 
   3.4101809965445538`*^9, 3.4101811746695538`*^9, 3.4101814820445538`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{"Subscript", "[", 
    RowBox[{"x", ",", "i"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4101819852008038`*^9, 3.4101820016070538`*^9}}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["x", "1"], "+", 
  SubscriptBox["x", "2"], "+", 
  SubscriptBox["x", "3"], "+", 
  SubscriptBox["x", "4"], "+", 
  SubscriptBox["x", "5"], "+", 
  SubscriptBox["x", "6"], "+", 
  SubscriptBox["x", "7"], "+", 
  SubscriptBox["x", "8"], "+", 
  SubscriptBox["x", "9"], "+", 
  SubscriptBox["x", "10"]}]], "Output",
 CellChangeTimes->{
  3.4101824406851788`*^9, {3.4101824755445538`*^9, 3.4101825087320538`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$RecursionLimit", "=", "10000000"}]], "Input",
 CellChangeTimes->{{3.4101824007008038`*^9, 3.4101824190445538`*^9}, {
  3.4101824552476788`*^9, 3.4101824562164288`*^9}, {3.4101825059508038`*^9, 
  3.4101825062945538`*^9}}],

Cell[BoxData["10000000"], "Output",
 CellChangeTimes->{{3.4101824127945538`*^9, 3.4101824194820538`*^9}, {
  3.4101824894820538`*^9, 3.4101825071539288`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "^", "2"}]], "Input",
 CellChangeTimes->{{3.4101820047476788`*^9, 3.4101820052476788`*^9}}],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{
    SubscriptBox["x", "1"], "+", 
    SubscriptBox["x", "2"], "+", 
    SubscriptBox["x", "3"], "+", 
    SubscriptBox["x", "4"], "+", 
    SubscriptBox["x", "5"], "+", 
    SubscriptBox["x", "6"], "+", 
    SubscriptBox["x", "7"], "+", 
    SubscriptBox["x", "8"], "+", 
    SubscriptBox["x", "9"], "+", 
    SubscriptBox["x", "10"]}], ")"}], "2"]], "Output",
 CellChangeTimes->{3.4101820058570538`*^9, 3.4101824428883038`*^9, 
  3.4101824768101788`*^9, 3.4101825100133038`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "=", 
  RowBox[{"Expand", "[", "%", "]"}]}]], "Input",
 CellChangeTimes->{{3.4101824447476788`*^9, 3.4101824485289288`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.4101824495289288`*^9, 3.4101824780914288`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.4101824495289288`*^9, 3.4101824781070538`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.4101824495289288`*^9, 3.4101824781070538`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.4101824495289288`*^9, 3.4101824782008038`*^9}}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.4101824632320538`*^9, 3.4101824866851788`*^9}}]
}, Open  ]]
},
WindowSize->{633, 475},
WindowMargins->{{Automatic, -1}, {Automatic, -1}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 121, 2, 31, "Input"],
Cell[714, 27, 94, 2, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[845, 34, 120, 2, 31, "Input"],
Cell[968, 38, 93, 2, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1098, 45, 127, 2, 31, "Input"],
Cell[1228, 49, 104, 3, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1369, 57, 102, 1, 31, "Input"],
Cell[1474, 60, 215, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1726, 70, 178, 4, 31, "Input"],
Cell[1907, 76, 89, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2033, 82, 229, 7, 31, "Input"],
Cell[2265, 91, 115, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2417, 97, 1733, 54, 132, "Input"],
Cell[4153, 153, 113, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4303, 159, 121, 2, 31, "Input"],
Cell[4427, 163, 113, 1, 30, "Output"]
}, Open  ]],
Cell[4555, 167, 102, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[4682, 172, 177, 4, 31, "Input"],
Cell[4862, 178, 133, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5032, 185, 127, 2, 31, "Input"],
Cell[5162, 189, 194, 3, 30, "Output"]
}, Open  ]],
Cell[5371, 195, 199, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[5595, 204, 1064, 27, 152, "Input"],
Cell[6664, 234, 1002, 18, 81, "Print"],
Cell[7669, 254, 89, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7795, 260, 339, 6, 31, "Input"],
Cell[8139, 269, 191, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8367, 276, 271, 7, 31, "Input"],
Cell[8641, 285, 448, 13, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9126, 303, 246, 4, 31, "Input"],
Cell[9375, 309, 158, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9570, 316, 119, 2, 31, "Input"],
Cell[9692, 320, 538, 15, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10267, 340, 152, 3, 31, "Input"],
Cell[10422, 345, 460, 9, 21, "Message"],
Cell[10885, 356, 460, 9, 21, "Message"],
Cell[11348, 367, 460, 9, 21, "Message"],
Cell[11811, 378, 493, 9, 21, "Message"],
Cell[12307, 389, 105, 1, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

